home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 051-075 / disk_070 / logo / logo.7 < prev    next >
Text File  |  1992-05-06  |  335b  |  12 lines
  1. ;
  2. ;the following program demonstrates the use of OUTPUT
  3. ;
  4. to factorial :x
  5.    if :x < 2 [output 1] [output (factorial :x-1) * :x]
  6. end
  7. to demo
  8.    print ['   enter ']
  9.    print ['       print [factorial 5] ']
  10.    print ['   to get the factorial of 5.  This procedure uses']
  11.    print ['recursion and the OUTPUT statement to do its work.]
  12. end